home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbpong1a / dsoundco.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-09  |  566 b   |  25 lines
  1. Attribute VB_Name = "DSoundCode"
  2. Public mySound As CDXVBSound
  3. Public dsb(1) As CDXVBSoundBuffer
  4.  
  5. Public Sub InitDSound()
  6.     Set mySound = New CDXVBSound
  7.     Set dsb(0) = New CDXVBSoundBuffer
  8.     Set dsb(1) = New CDXVBSoundBuffer
  9.     
  10.     mySound.Create main2.hWnd
  11.     
  12.     dsb(0).LoadFromDisk App.Path & "\sound1.x", main2.hWnd
  13.     dsb(1).LoadFromDisk App.Path & "\sound2.x", main2.hWnd
  14. End Sub
  15.  
  16. Public Sub PlayBounce1()
  17.     dsb(0).StopSound
  18.     dsb(0).Play 0
  19. End Sub
  20.  
  21. Public Sub PlayBounce2()
  22.     dsb(0).StopSound
  23.     dsb(1).Play 0
  24. End Sub
  25.